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ELITE VOOR 
CBM-64 


Micromundo (Zijldijk 25, Lei- 
derdorp), importeur van de 
Acorn BBC en de Acorn Elec- 
tron, gaat zich op het gebied 
van de Commodore 64 begeven 
en wel via de import vun het 
spel Elite. Elite is in Engeland 
in alle opzichten het spel van 
het (vorig) jaar geworden. Van 
de BBC-verste zijn in dat land 
meer dan 125.000 exemplaren 
verkocht, Van de Commodore- 
versie verwacht men in Enge- 
land tenminste 250.000 stuks af 
te zetten. Dat moet lukken, ge- 
zien het feit dat de start-oplage 
van 30.000 stuks binnen twee 
dagen was uitverkocht. Als het 


EEN VIDITEL-ABONNEE 
TEGELIJKERTIJD 


Per 1 september is het niet meer mogelijk om met meerdere personen 
tegelijkertijd gebruik te maken van één Viditel-toegangsnummer. Dat 
doet de PTT, beweert ze, om de privé-gegevens van gebruikers beter te 
beschermen en bovendien wordt het persoonlijk lidmaatschap van 
besloten gebruikersgroep beter gegarandeerd. De telefoonrekening van 
de officiële gebruiker is zo ook beter beschermd, maar daarover rept 
de PTT niet, omdat men daar ook uiteraard geen boodschap aan heeft. 


C-COMPILER VOOR 
COMMODORE 


Bij professionele programmeurs raakt de taal C steeds meer in be- 
langstelling. Bijvoorbeeld het krachtige, moderne besturingssysteem 
Unix is in die taal geschreven, Software-huizen hebben bijzonder veel 
belangstelling voor programmeurs die de taal beheersen. Data Becker 
Nederlands (bij Bruna 030-430254) brengt nu voor f395,- een C- 
Compiler voor de CBM-64 op diskette uit. Het pakket bevat natuurlijk 
een uitvoerige handleiding, een compiler, een editor en een aantal hulp- 
programma’s. Voordat de gevorderde Basic- of machinetaal- 
programmeur zich nu vol overgave op C stort, waarschuwen we even 
dat de taal niet een-twee-drie geleerd is en bovendien goed bijgehouden 
moet worden. Veel oefenen is noodzaak. Waarschijnlijk al in het vol- 
gende nummer zal Commodore Dossier uitgebreid aandacht aan deze 
taal en de mogelijkheden ervan besteden. 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 
mei, augustus en november als bijla- 
ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees. 
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spel ook in Nederland en België 
zo succesvol wordt, zien we het 
nog wel terug in onze Spel Top 
Tien. Nu volstaat de korte be- 
schijving uit het persbericht die 
beweert dat Elite een combinatie 
is van Star Wars, Risk en Mo- 
nopoly in één spel. 





PCM-SHOW 
VERGETEN 


Voor de zekerheid brengen we 
de PCM-show nog maar eens 
onder de aandacht, die van 11 
tot en met 13 oktober in de 
Jaarbeurshallen in Utrecht 
wordt gehouden, Zoals bekend 
krijgen lezers van Commodore 
Dossier een korting van 50 pro- 
cent op de toegangsprijs. Daar- 
voor moet de bon uit Commo- 
dore Dossier nummer 3 worden 
ingevuld. Naast een groot aantal 
exposanten, zullen er een groot 
aantal activiteiten worden ge- 
houden. Zo zijn er speciale acti- 
viteitencentra voor ondernemers 
uit het midden- en kleinbedrijf 
en voor mensen uit het onder- 
wijs. In het weekend zullen 
mede-sponsors Nieuwe Revu en 
Televizier via speciale acties de 
aandacht opeisen. Verwacht 
mag worden dat ook de expo- 
santen zelf zich niet onbetuigd 
laten. We zouden het nog niet 


C-128 AL 


GESIGNALEERD? 


Zelden zal een computer de goe- 
gemeente zo in spanning hebben 
gehouden als de C-128. Com- 
modore Dossier bijvoorbeeld 
heeft al tenminste drie keer een 
datum bekend gemaakt waarop 
de machine zou verschijnen. 
Maar steeds kwam uitstel. De 
laatste datum die Commodore 
Nederland noemt, is de eerste 
helft van september. Op het 
moment dat u dit leest, zou hij 
dus te koop moeten zijn. Het 
probleem blijkt CP/M te zijn. 
Niet dat besturingssysteem zelf, 
dat immers zo oud is als de weg 
naar Silicon Valley, maar de in- 
tegratie ervan in de computer. 





mogen verklappen, maar via via 
is ons te ore gekomen dat met 
name Commodore Nederland 
fors gaat uithalen. Wat dat pre- 
cies inhoudt, ís niet duidelijk, 
maar een bezoek aan de stand 
van het bedrijf lijkt de moeite 
waard. 

Overigens zal de show worden 
voorafgegaan door een gala- 
avond waarop de PCM-awards 
zullen worden uitgereikt. Een 
van die awards is bestemd voor 
de maker van het beste 
Commodore-programma. Het 
zijn de lezers van Commodore 
Dossier die dat beste program- 
ma onder de aandacht van de 
jury brengen. Dat doen ze via 
een bon uit Aktief juli, Wie die 
bon niet meer heeft, kan zijn 
keuze echter ook via een brief- 
kaartje bekend maken. Onder 
de inzenders worden een aantal 
computers verloot. 


PROGRAMMEER-WEDSTRIJD 
AACKOSOFT 


Het tekort aan goede programmeurs bij softwarehuizen is blijkbaar 
schrijnend. Het bekende softwarehuis Aackosoft (071-412121) gooit er 
daarom maar een wedstrijd tegenaan om op die manier wat talent bin- 
nen de poorten te halen. De details zijn nog niet helemaal duidelijk, 


BINGO'S SYSTEEM VOOR 


VIC-20 


Een aantal Vic-20 bezitters voel- 
den zich tekort gedaan in Com- 
modore Dossier 3. De wedstrijd 
met de C-128 als hoofdprijs kan 


maar die zullen op allerlei manieren bekend gemaakt worden. Wel staat niet op de Vic-20 worden 
al vast dat de hoofdprijzen bestaan uit een paar tripjes naar de CES in 
Las Vegas. Het lijkt dus zaak om vast met programmeren te beginnen. 


gespeeld. Dat is niet eerlijk von- 
den ze en ze hebben gelijk. Op 
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OVER BESTURINGSTEKENS 
EN KARAKTERSTRINGS 


De Commodore microcomputers 
hebben allemaal de beschikking 
over een uitgebreide reeks bestu- 
ringstekens. Met deze tekens is 
het mogelijk om de kleur van 
de letters te veranderen of om 
bijvoorbeeld het scherm schoon 
te vegen. In deze aflevering be- 
kijken we de diverse bestu- 
ringstekens eens wat nader en 
bespreken we bovendien een 
aantal zogenaamde ’voordeelre- 
gels’ waarmee we het beeld- 
scherm nog eenvoudiger kunnen 
beheersen. 

ledere Commodore-bezitter weet 
wat de zogenaamde ’quote- 
mode’ is. Na een aanhalingste- 
ken worden de diverse kleurop- 
drachten, cursorbewegingen en 
dergelijke op het scherm zicht- 
baar als rare tekentjes. Deze te- 
kentjes lijken op het eerste ge- 
zicht doelloos, maar ze hebben 
wel degelijk een functie: ze 
besturen tijdens het RUNnen 
van een programma de cursor. 
Dit besturen kan betrekking 
hebben op de cursorpositie 
maar ook op de kleur ervan. 
Een demonstratie is snel gege- 
ven. Toets maar eens zonder re- 
gelnummer in: 


[HOME] (de HOME-toets in- 
drukken) 


U ziet dat de cursor naar de uit- 
gangspositie, linksboven op het 
scherm wordt verplaatst. Verder 
verandert er niets. En bekijk nu 
de volgende regel. 


P[HOME]” (weer de HOME- 
toets indrukken) 


De aanhalingstekens zorgen 
voor een speciaal effect. De cur- 
sor beweegt nu niet naar zijn 
positie linksboven op het 
scherm, maar er verschijnt een 
diapositieve S. Deze S geeft aan 
dat de computer de besturings- 
opdracht heeft begrepen. Hij 
voert de opdracht echter pas uit 
als die in een Basic-programma 
wordt geRUNd. 


10 PRINT ”[HOME]’”’ 


Bij LIST ziet u de diapositieve 
S staan, maar na RUN ver- 
schijnt de cursor linksboven in 
het scherm. Vervolgens wordt 
daar READY geprint terwijl de 
cursor een regel zakt. 

Zoals voor de home-functie zijn 
er besturingstekens voor alle 
cursorfuncties en voor de kleur- 
functies. 


In de listings van Commodore 
Dossier komt u zelden of nooit 
— we streven naar nooit’ — 
een besturingsteken tegen. In 
plaats daarvan gebruiken onze 
programmeurs en de meeste le- 
zers die listings insturen zoge- 
naamde karakterstrings. Met be- 
hulp van die karakterstrings 
kunnen alle besturingstekens 
worden gesimuleerd. Een lijstje 
van de meest voorkomende 
vindt u hieronder. 

cursor rechts — chr$(29) 


cursor links - chr$(157) 
cursor omhoog — chr$(145) 
cursor omlaag — chr$(17) 
cursor home - chr$(19) 
scherm schoon — chr$(147) 
Voor de Commodore 64 zijn er 
de kleurcodes: 

blauw - chr$(31) 

bruin - chr$(149) 

cyaan - chr$(159) 

geel - chr$(158) 

grijs (1) - chr$(151) 

grijs (2) - chr$(152) 

grijs (3) - chr$(155) 

groen - chr$(30) 

lichtblauw — chr$(154) 
lichtgroen — chr$(153) 
lichtrood - chr$(150) 

oranje - chr$(129) 

paars - chr$(156) 

rood - chr$(28) 

wit - chr$(5) 

zwart - chr$(144) 

Daarnaast zijn er nog een aan- 
tal andere handige codes, 


chr$(18) - diapositief aan 
chr$(146) — diapositief uit 
chr$(14) - kleine letters 
chr$(142) — hoofdletters 
chr$(8) - SHIFT/COMMODO- 
RE uitzetten 

chr$(9) - SHIFT/COMMODO- 
RE aanzetten 


Uiteraard zijn deze besturingste- 
kens op zichzelf niet zo interes- 
sant. Leuk wordt het pas wan- 
neer we de krachtige mogelijk- 
heden ervan gaan combineren. 
Kijkt u bijvoorbeeld eens naar 
de volgende routine. 


10 dim do$(25),ri$(40): rem d$ 
voor omlaag, ri$ voor naar 
rechts 

20 for x=l to 25:do$(x) =do 
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het moment dat we dit schrijven, 
wordt er dan ook hard gewerkt 
aan een listing voor de Vic-20. 
Een kort briefkaartje is voldoen- 
de om die listing thuisgestuurd te 
krijgen, zodat dan toch iedereen 
gelijke kansen krijgt. 


$(&-1) + chr$(17):next x 
30 for x=1 to 40:ri9(2) =ri 
$G-1) + chr$(29):next x 





Vanaf nu is het geven van bij- 
voorbeeld 20 keer cursor naar 
beneden een kleinigheid: 

print do$(20) 


De bovenstaande methode is, 
zoals u ziet, een krachtige com- 
binatie van ARRAYS en 
BESTURINGSTEKENS. 

Een andere methode kunnen we 
gebruiken om een zogenaamde 
’kleur-string’ te maken: 

10 kl$= "17 

20 for x=l tot 16 

30 read y 

40 kl$ =k1$ + chr$(y) 

50 next x 

100 data 144,5,28,159,156, 
30,31,158 

110 data 129,149,150,151, 
152,153,154,155 


We beschikken nu over een 
kleurstring kl$. Het is nu een- 
voudig om een tekst door een 
serie kleuren heen te laten 
lopen. 

200 print chr$(147) 

210 for x= 1 to 16 

220 print chr$(19)mid$(kl$,x, 1)” 
commodore dossier °’ 

230 for t=l to SO: nett 

240 next x 

250 goto 210 


Dit zijn een paar voorbeelden 
van de vele mogelijkheden die 
karakterstrings en besturingsco- 
des u bieden. In de volgende af- 
levering komen we er op terug. 
Experimenteert u intussen zelf 
naar hartelust en laat ons uw 
bevindingen weten. 






















Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities, On viezen van binnen- 
en buitenlandse professionals. Lezers helpen lezers. Het programma van M.R.Pauw 








Het zijn de kleine dingen die het doen. Tips & trucs uit Apeldoorn kan volgens de 
van lezers worden, indien geplaatst, beloond met 50 maker ook dienst doen als su- 
gulden. broutine. Deze heeft als voor- 


deel dat men de gewone letters 






GROTE LETTERS 


10 forl=51200to5i252sreadg:pokei,x:next{shift»/<spatiedle 

20 datal20,165,1,72,41,251,133,1,169,208<shift»/{spatie>b9 

34 datal33,3,169,48,133.5,160,0,132,2,132,déshift»/gspaties8d 
40 datal62,32,177,2,145,4,200,208,249,230Xshift>/{spatie>b2 
50 data3,230,5,202,208,242,104,133,1,173,2déshift»/<spat le?be 
60 data208,41,241,9,12,141,24,208,88,96<shiftd/<spatieda6 

70 sys51200:t=3:printchrs(147) <shift>/<spatied56 

80 forv=itoltt:printchr$(17)s:inext<shiftd/{4spatie>d4d 

90 input” geef naam (max. 4):"ina$cshiftd/{<spatie)b8 

100 le=len{na$):ifle>dorle<ithen90<shift»/<spatie)9e 





















120 forg=itole:l$=mid$(nas,g,1):cozasc(l$)-64shift>/{<spatied64 
130 fori=0Oto7:pe=peek(12288+8kcotijtshift)/<spatiedeb 
140 forc=7toOstep-i{&shift>/&spatied6e 


e da 
160 printtab(t)”" "s{shiftd/{spatiedfc 
170 next:print" “rinext:it=tt+8{shiftd/{<spatie>09 


190 geta%:ifaf="“"theni90<shift»/<spatie>83 









‘pijltje naar boven’. 

















WVIG-LISTER 


Het programma van J. Nijman een programma met zo’n 300 grammaatje hier staat, list hij 
uit Haarlem is bedoeld om een _ dataregels. Het programma alleen regels met opeenvolgende 
Vic listing stap voor stap op het vraagt eerst het te LISTen regel- nummers. Als de regels met 5 
scherm te brengen. Het is ont- nummer en geeft de volgende of 10 verspringen, dient in regel 


worpen toen de maker klaarblij- regel pas als de RETURN-toets _ 30 L +1 vervangen te worden 
kelijk een fout had gemaakt in__wordt ingedrukt. Zoals het pro- door L+5 of L+10. 








10 Input'eerste regelnr.":l1 
20 se "liet? 

30 printehr#i47dichrsi5di "10 l=til+ischr$(31) 
40 printl$sl 

50 printchr$(5):foraa=lto8:print"run":nextaa 
60 poke631,31:poke632,19:poke633,13:poke634, 13:poke1998, 4:end 













LISTKLEUR 
Een zeer fraaie inzending van bijvoorbeeld regelnummers, go- _ wijze wordt het controleren van 
W.H.M.M van Hest uit Til- to en gosub-opdrachten en data een listing eenvoudiger en voor- 
burg. Het machinetaalprogram- _- in een andere kleur weer dan _ al data-statements worden hier- 

ma geeft cijfers in een listing — _ de letters in die listing. Op deze door makkelijker te controleren. 


LISTKLEUR 


forx=.to43:sreada:poked9152+x,arnext{shift>/{spatiedab 
rem aan met sys 49152{4shiftd/{spatiedfe 

rem af met run/stop & restoregcshift>/<spatiedc6 

data 120,169,13,141,20,3,169,1924shift>/{<spatieda2 
data 141,21,3,88,96,162,48,160<shift)/<spatiedae 

data 0.138 219 192,%,240, 13), 200cohtEtj/éspatie,ds 
data 199,40,208,245,232,224,58,2084shift»/{spatiedae 
data 238,76,49,234, 169Xshift>»/<spatie>ba 

data 3:rem Kleurcode (0/15){4shiftd/{spatied5f 

data 153,152,219,76,23,192{shift»/{spatieda7 


OD INWIN 
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GROTE LETTERS 





110 printchr$(147)}:fori=lto6:printchr$(17)dsrnextéshift»/{<spatied00 


150 ifsgn{peand2@cd=tthenprinttab(t)chrs(18)" "chr$(146)s:gotol70shift»/éspati 


180 printchr$(19):fori=tto6:printehr$(17)dsrinextinext{shift>/{spatie)58 


Het ’@'-teken in vegel 150 dient u te vervangen door het machtverheffings-teken 


via input of data naar de sub- 
routine kan laten gaan waar er 
dan grote letters van worden ge- 
maakt. Regel 10 tot 60 ver- 
plaatst de karakterset. 


Na een RUN dient het program- 
ma verwijderd te worden met 
een NEW opdracht. De routine 
wordt gestart met SYS 49152. 
Het LIST-commando moet op 
de onderste of één na onderste 
regel worden gegeven. Omdat 
het programma gebruik maakt 
van een interrupt-routine, kan 
men het alleen stoppen met een 
RUN/STOP en RESTORE. Het 
programma blijft in het geheu- 
gen zitten, ook na een SYS 
64738 en kan steeds weer op- 
nieuw worden gestart met SYS 
49152, 





DATASETTE 


BESTUREN VANUIT 


BASIG 

Geheugenplaats | staat 
rechtstreeks in verbinding met 
de microprocessor van de com- 
puter. Door deze geheugenplaats 
te POKEn kunnen blokken van 
het geheugen worden in- of uit- 
geschakeld. Vanuit dezelfde ge- 
heugenplaats wordt de motor 
van de datasette bestuurd. De 
volgende POKES staan tot uw 
beschikking: 

POKE 1,(PEEK(DAND223) : 


Cassettemotor aan 
POKE 1,(PEEK(IDOR32) : Cas- 
settemotor uit 


Met een PEEK wordt gecontro- 
leerd of een een willekeurige 
knop van de datasette wordt in- 
gedrukt: 


JA = PEEK(I) AND 16:IF JA 
THEN PRINT”KNOP 
INGEDRUKT”’ 


HANDIGE POKES 


Klaas van Asch uit Schiedam 
ontdekt werkend achter zijn 
computer de ene handige POKE 
na de andere. Hij blijft er de 
redactie in elk geval mee besto- 
ken. We maken een selectie. 
POKE 775,200 maakt listen on- 
mogelijk 

POKE 775,167 maakt listen 
weer mogelijk 

POKE 788,49 schakelt 
RUN/STOP uit 

POKE 788,52 schakelt 
RUN/STOP weer in 

POKE 650,128 maakt alle toet- 
sen repeterend 

POKE 650,0 maakt alleen spa- 
tiebalk en cursor repeterend 
POKE 650,64 schakelt repeteer- 


functies weer uit 

POKE 775,255 print onzin bij 
het listen van programma’s 
POKE 657,128 schakelt de com- 
binatie SHIFT/CBM uit 

POKE 657,0 schakelt deze com- 
binatie weer in 

POKE 808,225 schakelt 
RUN/STOP-RESTORE uit 
POKE 808,237 schakelt dit weer 
in 

POKE 204,0 schakelt de cursor 
in bij het GET-statement 

POKE 204,2 schakelt dit weer 
uit. 

POKE 211,x:POKE 
214,y:SYS58732 plaatst de cur- 
sor op een punt op het scherm, 
met de coordinaten x en y. 


FUNCTIETOETSEN 


VANUIT BASIG 


Veel lezers hebben problemen 
met het gebruik van functietoet- 
sen in een programma. Functie- 
toetsen kunnen vaak handig zijn 
als er bijvoorbeeld vanuit een 
menu naar een aantal opdrach- 
ten gesprongen moet worden. 
De functietoetsen hebben de 
volgende ASCH-codes: 


Fi 133 
F3 134 
ES 135 
F7 136 
F2 137 
F4 138 
F6 139 
F8 140 


Door nu in een programma op 
een ASCII-code te testen kun- 
nen de functietoetsen eenvoudig 
worden geadresseerd. Bijvoor- 


beeld als volgt: 


10 print ”’druk een toets in” 
20 get a$:if af ="""then20 :rem 
geen toets ingedrukt 

30 if asc (a$) =133thenprint 
”f1 ingedrukt!”’:end 40 goto20 


Het bovenstaande programma 
test of de Fl-toets wordt inge- 
drukt. Regel 20 wacht totdat er 
een toets is ingedrukt. Deze 
toets wordt opgeborgen in a$. 
Vervolgens wordt er in regel 30 
naar de ASCII-waarde van a$ 
gekeken. Bij een ASCII-waarde 
van 133 hebben we met functie- 
toets Fl te maken. Er wordt 
dan verder gekeken op regel 30. 
In alle andere gevallen wordt er 
naar regel 40 gesprongen, zodat 
er opnieuw op een toets wordt 
gewacht enzovoort… 


VERBORGEN RAM 


Volgens EIJ. Dijkstra uit 
Maassluis is onze uitleg dat op 
de CBM-64 maar 38K beschik- 
baar is voor Basic-programma’s 
niet helemaal volledig. Het is 
vrij eenvoudig, schrijft hij, om 
toegang te krijgen tot het ver- 
borgen RAM, ook vanuit Basic. 
Men hoeft daarvoor slechts het 
ROM heel kort buiten werking 
te stellen. Onderstaande Basic- 
regels programmeren een USR- 
functie die het ROM uitscha- 
kelt, een geheugenplaats afleest 
en vervolgens het ROM weer in- 
schakelt. 

10 FOR K=0 TO 20: READ A: 
POKE 679 +K‚A: NEXT: PO- 


KE 785,167: POKE 786,2 

20 DATA 32,247,183,169,53, 
120,133,1,160, 

0,177,20,168, 
169,55,133,1,88,76,162,179 


Na het runnen van dit program- 
maatje is het RAM af te lezen 
met USR(x), zoals men dat ook 
met PEEK(x) doet, maar nu is 
het gehele RAM toegankelijk, 
ook het deel dat bedekt is door 
het ROM. Het programma kan 
weer worden verwijderd, de 
USR-functie blijft actief, zolang 
men maar niet aan geheugen- 
plaats 679 tot en met 699 en 
785 en 786 komt. 


SCHERM- EN RANDKLEUR 
OP DE GOMMODORE 64 


Zoals alle Commodore 64 ge- 
bruikers weten, worden de kleu- 
ren van het beeldscherm en van 
de ’border’ ingesteld met behulp 
van een POKE-commando. Zo 
geeft ’POKE 53280,0’ een zwar- 
te rand om het tekst-scherm. 
Het is echter niet al te bekend 
dat de rand- en schermkleurre- 
gisters geen ’byte-registers’ zijn. 
Deze registers bestaan beide uit 
slechts één zogenaamde ’nyb- 
ble’. Een nybble is een groep 
van 4 bits. Een byte bestaat dus 
uit twee nybbles. Omdat de re- 
gisters 53280 en 53281 nooit 
met een waarde hoger dan 15 


KORT 


* Het SAVE-commando werkt 
niet meer na POKE 818,32. PO- 
KE 818,237 zet de SAVE- 
pointer weerr op de juiste plaats 


* LOAD-ERRORS bij het laden 
van een cassetteprogtamma kun- 
nen heel wat oorzaken hebben. 
Een van die oorzaken kan zijn 
de magnetische werking van 
monitor of tv-toestel. Zet uw 
datasette eens wat verder van 
dat toestel vandaan. 


* Door tegelijkertijd op de 
SHIFT- en COMMODORE- 
toets te drukken, verandert u de 
karakterset van grafisch naar 
grote of kleine letters. Soms 
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gezet worden (binair gelijk aan 
‘1111’ worden de linker nyb- 
bles dus niet gebruikt. Commo- 
dore heeft deze nybbles dan ook 
weggelaten, iets dat blijkt uit 
het volgende programmaatje: 


10 poke53280,1 

20 printpeek(53280) 

Uiteraard zou u na een PEEK 
de waarde ’1’ verwachten. De 
6510 microprocessor ’vertaalt” 
het ontbreken van de linker 
nybble echter als vier gezette 
bits, zodat we de waarde Sf1 
krijgen (decimaal gelijk aan 
241)! 


kan het echter praktisch zijn om 
deze werking van de twee toet- 
sen uit te schakelen. Dit kan 
met de opdracht PRINT 
CHRS$(8). PRINT CHR$(9) 
schakelt de werking van de toet- 
sen weer in. 


* De microprocessor in de 
Commodore 64 kan zijn werk 
sneller doen als het scherm is 
uitgeschakeld. Vooral bij sor- 
teerroutines en dergelijke komen 
de volgende twee POKEs daar- 
om goed van pas. 

POKE 53265,11 (schakelt het 
scherm uit) 

POKE 53265,27 (zet het scherm 
weer aan) 






























































Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De aamman bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ’lopen’. Gedrukte programma's moeten in elk geval van characterstrings in plaats van 
besturingstekens zijn voorzien. De beste hanna uit deze rubriek kunnen in an Eg komen om door COMMODORE DOS- 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 
rechten van het programma af aan Commodore Dossier in ruil vaor een wettelijk geregeld deel van de opbrengst. 


VLEKKENHULP 

Een zeer praktisch programma vrijgezel kan zijn voordeel doen 
van E.Vogel uit Rotterdam. met de instant-oplossingen voor 
Niet alleen de nijvere huis- alle mogelijke vlekken. 


vrouw, maar ook de knoeierige 





VLEKKENHULP 


10 printehrs lat) stkkkhktkkkAk AAA AKKShifrd/Cspatied6f 
il print'"XX e.‚vogel xk{shift>/<spatie>8c 

12 print”kk middelrode 56 kx{shiftò/<spatie>85 

13 print” 3085 cr r'dam kx{shift>/{spatied94 

14 print kk OLOG=tOl4L7 kk<shiftd/<spatie>8b 

15 print'*% 1=7=85 xx<shiftd/<spatied9f 

17 print vlekkenrhulp kxkCshift>/<spatiedf2 

18 print krk AKCShiftd/Sspatied83 

19 fori=ito500O:nextigshiftd/<spatied08 

100 a$="behandelen met lauw water"{<shift»/{<spatied93 
110 b$="=-wassen met een bleekmiddelhoudend wasmiddel"{<shift>/{spatievel 
120 c$="=wassen"{<shiftd/{<spatie>9d 

130 d8="kkkAKAKALKKK" Cshiftd/Cspatied7a 

140 e$="behandelen met terpentine of thinner"<shift>/<spatied40 
f$="behandelen met citroensap of 1% citroenzuuroplossing"<shiftd/{éspati 






160 ge="niet laten inbranden door heet water of sop"<shift»/<spatie»58 
170 h$="-aanspuiten met onverdund afwasmiddel"{shiftd/<spatied3f 

180 i$="=wassen met biologisch wasmiddel"<shift>/<spatie»7e 

190 je="direct bestrooien met zout"{shiftd/{spatiedl7 

200 K$="behandelen met tri of alcohol"{<shiftd/{Xspatie>43 

210 l#="behandelen met tri of wasbenzine "{shift>/{spatied00 

220 mê="met mes afkrabben =-strijken tussen grauw papier"{shift»/<spatied2c 

230 n$="deppen met absorberend papier"<shift>/<spatie>00 

240 of="eventueel weken in zoutoplossing="{<shifth/{spatied6c 

250 q$=chr$(147)Cshiftd/éspatiejc9 

260 goto920Xshiftd/{<spatiedb7 

270 printqs{shift>/{spatiede3 

280 poke53280,1:poke53281,1:poke646,6<shiftd/{spatiedal 

290 printehrs(17dehrs(i7ddschrstigdechrs(28)" hulp bij vlekken “s<shift»/éspat 

ie>f6 

300 printchr$(i46)chr$(3l)dsSshift>/{spatiede5 

310 print "a=vruchtensap” ‚„"n=verf",,"beviltstift","o=thee",,"c=-schrijfinkt",{<sh 
ift>/<spatiedbe 

320 print"p-room”,,"dewijn",,"q=slaolie”,,"e-nachtcreme",“r=melk",,"f-koffie ,,< 
shift»/<spatie»bf 

330 print"s-honing",,"g-stroop",,"t=-frisdrank","h=eiwit",,"ureigeel",,{<shiftd/<s 
patie,9f 

340 print"i=balpen",,"v-boter",,"j-margarine",“w-jus",,"K-jam",,"xrkaarsvet”,<sh 
ift»/<spatie»c8 

330 print”l-bier",,"yrbloed",,"mrijs",,"z-gras",,"\-lipstiek", "*-begin pagina” {<s 
hift>/{Xspatiedfl 

360 printehr$Ci7)dschrslig)chrsC28)” uw keuze a.u.b “chr$(146);<shift»/{<spat 

ie>8d 

370 printchr$(3i)d$chr$(30dshiftd/Sspatie>8b 500 ifeeg="1"then730<shiftd/<spatied37 
380 getces:ifees=""then380{shift>/{Xspatied43 S10 Ifccs="m"then780Xshiftd/{spatie>37 
390 ifcc$="a"then670{shift>/<spatie>4d 520 Ifcos='n'then7904shliftd/<spatlesc0 
400 ifcef="b"then680Xshift>/{spatie>57 530 ifec$="0o"then8004shiftd/{<spatieddd 













410 ìfees="Cc"then6S90<shift>»/<spatie)5d 540 Ifces="p"then820<shift»/<spatie>dce 
420 ifcof="d"then7004shift>d/<spatie>6c 550 ifce$="q"then810{shift>/{spatiedf6 
430 ifcet="e"then7i0{shift>/{spatied66 560 ifces="r"then820Xshift>/{spatiede0 
440 ifce$="f"then7204shift)»/<spatie>70 570 ifce$="s"then730<shiftd/{spatiedes 
450 ifces="qg"then730{shift>/{spatie>0a 580 ifce$="t"then730{shiftd/{spatie>9c 
460 ifceos="h"then740éshift»/<spatied>0c 590 ifcet="u"then740Xshift>/<spatie>90 
470 ifcc#="i"then680{shift>/<spatiedla 600 ifcof="v"then760{shift>/éspatie>87 
480 ifcef="j"then760<shiftd/Cspatie>20 610 ifcc$="Ww"then860<shift>»/<spatie,b3 


490 Ifect="K"then670<shift>/<spatie>2b 620 ifcc$="x"then870Xshift>/<spatie>b3 
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630 ifces="y"then880<shiftd>/<spatieda7 770 printg$asb$:goto280Xshift>/{spatied67 
640 ifees="z"then890{shift>/{spatied53 780 printa$n$b$:goto280{shift>/{spatie>66 
650 ifcc#="\"then710{shift»/<spatie»58 790 printqgsesct$:goto280Xshift>/{<spatie>76 
660 ifces$="k"then9204shift>/{spatie>3d 800 printq$b$:goto280Xshift>/<spatied20 

665 ifcet=" "then270éshift>/{&spatied34 810 printgglsh$b$:goto280éshift>/<spatie>2e 


670 printq$a$b$:goto280{shift>/Xspatie>fa 820 printgsgsh$is:goto280shift>/{spatied30 
680 printg$k$c$:goto280{shift>/{Xspatiedc7 830 printqsa$c$:goto280Xshift»/<spatiedda 
690 printq$f$b$:goto280Xshift»/Xspatiedd! 840 printqsgsis:goto280Xshift>/<spatied20 
700 printgqfjsfb$:goto2804shiftd/4spatiedd3 850 printgslsh$c$:goto280shift>/{<spatie»57 
710 printg$k$b$:goto280<shift>/<spatie>aë 860 printgsh$is:goto280<shift>/<Sspatie»3b 
720 printg$h$b$:goto280éshiftd/{spatie>bd 870 printg&m$b$:goto2804shift»/{spatied0f 
730 printgfasc$:goto280Xshift)»/<Sspatiedbf 880 printg$osgsis:goto280Xshift>/{<spatie»73 
740 printq$g$i$:goto280Xshift>/{spatied8d 890 printg$k$b#:goto2804shift»/{<spatied15 
750 printqask$c$:goto280{shiftd/<spatie>81 900 printqg$k&b$:goto280Xshift>/<spatiedeb 
760 printgq$l$h$c$:goto280<shiftd/{<spatie»fc 910 printg$k$b$:goto280éshift>/<spatiedel 


920 printchr$(147)chr$(28):poke53280,7:poke53281,7/<shiftd/<spatie>3b 

930 printchr$(18jchrs(3idechrs (2) chr$l2Iehrs2)echrsl29lehrst29lehrs 29); shi 
ft>/<spatied08 

940 printehr$(29)dchrsC29)" hulp bij vlekken “"chré(td6)chr$(28jchrsCi7dchesC17) 
<shift>/{spatie>lb 

950 print“dit programma geeft u enige aanwijzingen omtrent het wegwerken van”: 
<shift>/<spatied73 

960 print” vlekken",chr$(l7)dchr$(31) “behandel de vlek zo snel mogelijk."chrs(28) 
<shift>/Xspatie>d9 

970 print"was de behandelde stof direkt na,dit",“voorkomt indrogen van het “;{<sh 
ift>/<spatie»55 

980 print'ontvlekkings= middel in de stof.”<shiftd>/<spatie»5l 

990 printchr$(31) "bij brandbare ontvlekkingsmiddellen"<shiftd/<spatieddd 

1000 print"zoveel mogelijk buitenshuis werken"chr$(28)<shift>/éspatiedc0 

1010 print“gebruik nooit een plastic of metalen voorwerp bij gebruik van ee 
n”s<shift>/{spatie,Zf 

1020 print” oplosmiddel"chr$(31)s"alles wat u uitprobeert is geheel voor" <shift> 
/<spatiede2 

1039 print'eigen risico'chr$(28)éshift»/éspatie)3a 

1040 print"raadpleeg zonodig een vakman bij onkundevan de materie’chr$(1i7)chr$Cti 
7)<shift»>/<spatieded 

1050 printchr$C({i8}chrs(iaa)” druk een toets voor vlekken=menu “chr$(146)4s 
hift,/<spatie,sb 

1060 getee$:ifecs=""thenl060:printgs{shift»/<spatiedf4 

1079 ifcc$<h“then270<shift»/<spatie»l5 


GOKKAST 

Een één-armige bandiet van om de inworp. Î voor 1 gulden Dat gebeurt van links naar RETURN te drukken of je kunt 
Wout van Kemenade uit Duizel. (4 punten) en 2 voor een rijks- _ rechts met de functietoetsen 1, accepteren wat je krijgt door op 
Als het programma zijn datare- daalder (10 punten). Door op 3, 5 en 7. Opheffen van dit SPATIE te drukken. Je kunt 
gels en variabelen heeft ingele- RETURN te drukken gaan de vastzetten gebeurt met SPATIE. tot drie maal toe gokken. 1000 
zen, wordt het scherm opge- rollen draaien, Als je geen prijs Als je wel prijs hebt, kun je op punten is de limiet van het spel. 
bouwd. De computer vraagt nu _ hebt, kun je een rol vastzetten. _ meer punten gokken door op Namens de maker veel plezier. 
GOKKAST 

1 rem wout van Kemenade{shift»/<spatle>c6 

2 rem oude kerkstraat 42{shift»/<spatie»86 

3 vem 5525 av duizel4shift»/<spatle,9/ 

4 rem tel.04970-16009&shift>/<spatiebdi 


10 printchr$(147dichr$(28)s<shiftd/<spatie>ab 
11 poke53280,3:poke53281,3:rof=chr$C18Kshiftd/<spatie>de 


70 peintros” “s<shift»/<spatie>dd 
80 printros"8Q0Q GAG AQ 2 QQ BQ GAU LAAG GAAGA"ISshiftd/<spatiekZa 
90 printros"Q AQ Q Q àQ A 8 qa & Q “séshiftd/{spatiedcl 
91 printros”"Q 8 Q aq aa aa Q 8 QQ a "“s£shift»/&spatie>c0 

92 printro$ "a Aa a 8 â GaGa GAAG A “s4shiftd/<spatiedc7 
93 printros”"Q 88 Q GQ AQ aa a @ B a “s&shift»/Xspatie)37 
94 printros"Q qd QQ Q a8 G 8 Q GQ Q Q “s<shift>/{<spatie>45 

95 printros"Qaae GEEA QQ A Aa AQ a a aaa 8 "s&<shiEt>/<spatie>35 
96 printros” “Cshift»/<spatie»c0 


100 printtab(250)chr$(144}*wout van Kemenade"<shift>/{<spatiedff 

110 printtab(56)dulzel"4shtfti/gspatles/5 

115 dimb#(23):gotol9léshlft»/éspatie»19 

119 vemkkkkkkkkkkkuitlegkkkkkkkkkkkekkkkdttk kkk hkkkkkkkkkkkkkkkkktshif 
t>/<spatie»d4d 

120 printchr#(147):poke53281,Idshiftd/Cspaties98 

125 print'"return = spelen of gokken."<shift>/{spatiedf6 
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130 print:print"spatie = gokgetal nemen of het, "{<shift)>/{spatied96 

132 Dent vastzetten ongedaan maken."<shiftd/{spatie»52 

135 print:iprint"fi-f3-f5-f7 = rol vastzetten. "<shift»/<spatie»f6 

140 print:print"toets | = inworp gulden, "{shift»/{<spatiedcl 

145 print:print"toets 2 = inworp rijksdaalder." <shift»/{spatieddco 

146 print:print”"limiet = 1000":returnéshift>/{spatie>30 

149 renkkikkeerste keer inworpstikkktdkkkteksksnkkkkkkkkkkkkshif 
t>/{spatie)24 

150 printch$chr$(31)"inworp":forx=Ôto250inextsshift>/{spatie>b3 

155 printeh$chr$(3i)ros"inworp":forx=Oto250:nextéshift>/{spatie>87 

160 getx$:ifx$="1"thent=4:gotol75{4shift»/{spatiedc6 

165 ifx$="2"thent=l0:gotol7S<shift>/{spatie»>l2 

170 gotol50Xshift»/{<spatiedl7 

175 printch$chr&(31)rof"aantal ":gosub800:gotol200Xshift»/{Sspatiedec 

190 remkkrkkkkdata inlezen=opzetten schermkkkkkkkkhkkkkkkt kkk kkk sh 
ift>/<spatie>70 

191 reada:sifa==lthenx=xtl;gotol934shift>/<spatieda7 

192 b$Cx)=bfCxItehrslal:gotoldigshiftd/<spatiedds 

193 ifx=8thengosubl204shift>/éspatie»8l 

194 ifx<>24thenl9l<shift»/<spatie>8b 

195 gosub4004shiftd/{spatied7a 

196 print:print:printro$"druk toets!"<shift>/{spatie>34 

197 getx$:ifx$=""theni97{Xshiftd/{spatiedff 

198 poke53280,1:forx=Oto23:printbs(H)inextigosubsOOlshiftd/<spatie» 12 

199 printch$gostabl2)asCi)sprinttabl2dast2):printtabl2daf(3:gotoisOshiftd/{sp 
atie>20 

204 remkkkkkkdata scherme==regel OnkkkAAkk kirke tk kkk shif 
t>/<spatie>15 

g0b datalal,18,31.73 18,8), 19,82,80, 32 65 90,92, 50 SL SSA 3332 IAGS 
shift»/{spatie>49 

206 datal44,32,32,46,46,46,97,45,48,49,152,32,32,32,46,37,37,37,144,45,504shift 
»/<spatied74 

207 data52,-1<shift>/{éspatied7b 

208 vemkkkkkkkregel IkAAAAAAAAAAAAKKKAKCShiftd/<spatiedld 

209 datal8 21,34, 198,32 32,32 32,32, 80,2, 3232322348233 adsl dS 
hiftd/<spatied66 

210 datal46,144,32,32,97,46,46,46,45,48,49,159,32,32,32,36,36,36,46,144,45,D0ÁS 
hift»>/<spatle»7d 

211 data55,-I{4shift»/{<spatie>60 

212 remkkkkkAkregel ZkAkkAAAAAKAAKKKKKKKKCShifLd/Cspatie>dla 

213 datal8,31,32,158,32,146,32,32,32,18,32,146,32,32,32,18,32,146,32,32,32, 1948 
hiftd/{<spatied76 

214 data32,146,32,32,32,18,32,31, 32, 146, 144,32,32,97,460,46,97, 45, 48,50, 15ICshif 
t»/{spatied5a 

215 data32,32,32,46,36,36,36,144,45,50,55,-l&shift»/<spatie»57 

216 remkkkkAAKregel JkAkAAAAAAAAAAAAAAALShifLd/<spatiedl7 

217 datal8 31.32 198 32, 146 32 32, 32,18,32, 146, 32,32,92, 18,32, 146,32, 52,32, 1865 
hift»/<spatie»7a 

218 data32,146,32,32,32,18,32,31,32, 146, 144,32,32,97,97,46,46,45,48,50,32,32<sh 
ift>/<spatied47 

219 data32,149,122,122,122,46,144,45,51,48,-léshiftd/{spatie»72 

220 remkkkkkkwregel dkkkAAkkkdkkkkkkkkktshiftd/<spatiedld 

221 datal8,31,32,158,32,146,32,32,32,18,32,146,32,32,82,18,32,146,32,32,32, 1845 
hift>/éspatied7e 

222 data32,(46,32,32,32,18,32,31,32,146,144,32,32,46,46,97,97,45,48,50,149Cshif 
t>/{spatie,53 

223 data32,32,32,46,122,122,122,144,45,51,48,-i<shift»/<spatie>66 

224 remkkkkkkkregel BkkkkAkkrkrkkkkkk kk Cshiftd/Cspatied29 

225 datal8.3l.,32,198,32,32.30,32,32,34,32,34e 303232, 3203434344320 Srl SAS 
hift>/<spatie>56 

226 datal46,144,32,32,97,97,97,46,45,48,51,154,32,32,32,64,64,64,46,144,45<shif 
t>/Xspatie>67 

22) dataotoolt,el<ehifbs/Copanie,/e 

228 remkkkkkkkregel GAkkhkhhAAkhkkkKAKKSShiftd/<spatied2e 

204 datal8,31,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 34,32, 320 32,52, 146, LAAC 
shift>/{spatiedbe 

230 data32,32,46,97,97,97,45,48,51,154,32,32,32,46,64,64,64,144,45,51,51,=1{shi 
ftd>/{spatied5i 

231 vemkkkkkAKregel TkAAAAAAAAKAA AK AK AK CShifLD/<spatie?2c 

ga) Aatal8 31 3e A 15E SARL SS LL EA SLB Se desalsshlEnn 
<spatie)55 

233 data32,32,146,28,32,32,119,119,119,46,144,45,48,54,144,32,32,32,97,97<shift 
>/<spatie>49 

234 datadf,97,45,48,92,eltshift,/<spable,od 
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235 remkkkkkkwregel Bktkhttikntikkkkkkwtshiftd/Cspatied2f 

286 datals 31.32 32.28 32.30.82, 102 32028032 3200 loZ SE, 2ee SAS CenIEL AGS 
patie>43 k 

237 datalb2,32,28,32,32,32,31,32,32,146,28,32,32,46,119,119,119,144Cshift»/Cspa 
Lie>df 

238 data1o,48,54,28,32,32,32,119,119,119,119,l4d,45,48,96srlgshifte/gspatierbd 
233 remkkkkkkkregel MkAAAAAAAKAAKKAKKKKCShIfLD /Cspatied2a 

240 datalt8,31,32,32,102,32,32,82,32,32,82,32,32032, 32030, 340 32,02, 3deSlsSshift/ 
<spatied4d 

241 data32,32,146,30,32,32,119,119,119,46,14d,45,48,9/,30,32,32,32Sshift»/ spat 
ie>65 

242 datall5,1159,115,115,144,45,49,590,=1Cshiftr»/Cspatie»55 

243 remkkkkkkkregel LOA AAAHArkkA HAAK AASShiftd/Sspatiedr2d 

2dd datal8,3l,32, 32, 192,32, 32032, 3002 Send Sadee SAJ A8 
hift»/£<spatie>49 

245 datal46,30,32,32,46,1159,1159,115,144,45,48,97,31,32,32,32,38,38,38, 38 shift? 
AKspal lean 

246 dataldd,4d5,49,54d,-1shiftd/<spatie»55 

247 wemkkkkkknregel 1lAuAAAAAAAAKAiAKKKCShIfLD/Copatieddl 

248 datal8,31,32,32,152,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,31,32,32{5 
hift»/éspatie»45 

249 datal46,31,32,32,38,38,38,46,144,45,49,50,156,32,32,32,120,120,120,120{shif 
t>/<spatle»65 

250 datal44,45,50,48,-1éshift>/{spatied5c 

251 remkkkkkkkregel I2kkAAAAAAAAAAKAAAKCShIifL/Sopatied2e 

252 datal8,31,32,32,152,32,32,32,32,144,45,45,450,152,32,32,32,32,32,32,32,32<sh 
ift>/{spatie>68 

253 data31,32,32,146,31,32,32,46,38,38,38,144,45,49,50,158,32,32,32,42,42<shift 
>/Xspatieddi 

254 data42,42,144,45,50,52,=1&shift»/<spatie»53 

255 remkkkkkkkregel 13kkkkAkkkkkkkwAkKKCSshiftd/<spatied2b 

56 davat8, sl, 82,2, 152,32, 32034, 144, 32032 32 10232002 2d Sede ESn 
ift»/Sspaties95 

257 data3l,32,32,146,156,32,32,120,120,120,46,144,45,49,53,32,32,32,113,1134shi 
ft>/Sspatie>a7 

258 datalia, 113,45,50,b6,rlcshifte/Cspabie»b/ 

259 remkkkkkkkregel 1AkAAAAAAAAAA HAAK AKCShiftd/<spatie>dl! 

260 datal8,.3l,32.32,152,32,32,144, 45, ,d5,45,152,32,32,32,32,129,32,32,32,32CSshif 
t>/<spatie>87 

261 data32,82,31,34,32,146,156,32,32,46,120,120,120,144,45, 49,53,32,32,3eCSshift 
»/<spatieda3 

262 datal52,37,37,37,37,144,45,51,50,-14shift»/<spatie,b3 

263 vemkkkkkkkregel 1StkkAkrArurtrrkKKKCShiftd/Cspatieddd 

264 datal8,31,32,32, 152,32, 144,32,32,32,152,32,32,32,32,32,32,32,32,32,32,32<5h 
ift>/éspatie»9d 

265 data31,32,32,146,158,32,32,42,42,42,46,144,45,49,56,159,32,32,32,36,36{<shif 
tò/{spatied80 

266 data36,36,144,45,51,54,=-1éshiftd/<spatiedal 

267 remkkkkkkkregel 16AkAAAAAAAAAAKAKAKCShiEtD/Cspatieddb 

268 datal8,31,32,32,144d,45,45,45,152,32,32,32,32,32,32,32,129,32,32,32,32,32sh 
ift/<spaties95 

269 data31,32,32,146,158,32,32,46,42,42,42,144,45,49,56,149,32,32,32,122,122£sh 
ift»/<spatie»85 

270 datal22,122,144,45,52,48,-1<shiftd/<spatiedab 

271 wremkkkkkkkregel IkAAAAKAAAKAKAAAAKEShifED/Cspatiedde 

272 datal8,31,32,32,192,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,31,32, 325 
hift»/{spatiedac 

273 datal46,144,32,32,113,113,113,46,45,50,49,154,32,32,32,64,64,64,64,144Xshif 
tò/<spatie>85 

274 data45,52,52,=1&shift»/<spatiedal 

275 remkkkkkkkregel 1B%kAkkAAAAAAAAAKKKCSshiftd/<spatiedcd 

276 datal8,31,32,32,144,71,79,759,152,32,32,32,32,32,32,32,32,32,32,32,32,31eni 
ft»>/<spatiedbe 

271 data32,32,146,144,32,32,46,113, 113, 113,49,50,49,194,32,32,32,64,64, 34, 3désh 
ift>/<spatied9c 

278 datal44,45,53,48,-1{shiftd/<spatiedb2 

279 remkkkkkkkregel 1IkAAAAAAAAAAAkAKKKCShiftd/CSpatiedc8 

280 datal8,31,32,32,152,32,32,32,32,32,32,32,32,32,32,32,32,181,32,32,31,32shi 
ft>/Cspatiedb0O 

281 data32,146,152,32,32,37,37,37,46,144,45,50,52,154,32,32,32,34,34shift,/<sp 
atie>da 

282 data64,64,144,45,53,48,=1<shift>/<spatie)be 

283 remkkkkAAAregel ZORAAAAAAAKAAAAKAAKEShifLd/Sspatiedce 





COMMODORE DOSSIER AKTIEF 9 














LISTINGS VAN LEZERS 


284 datald. 21.32.42. 152,82,80,32, 52, 32, 32, 128,32, 32,30, 32,32, 1B1, 30, SeCShiE AS 

spatie>80 

285 data31,32,32,146,154,32,32,32,32,32,32,32,64,34,34,64,144,45,53,48,-1Cshift 

>/<spatie»b9 

286 vemtkkkkkkregel Minkkkkkkkkkkkkkkkkshiftd/Cspatie>ca 

287 datal8.21,32,32,152,82,32,32,32,32,32,125,32,32,32,32,32, Lal, 32, 38KehlftAe 

spatie»83 Ì 

288 data31,32,32,146,154,32,32,32,32,32,32,32,34,64,604,34,144,45,53,48,-14Shift 

»/Xspatie»84 

289 remkkkkkkkregel WkkhkAkddkkkkkkAkAmCshifth/{spatiedf6 

290 datal8,31,82,32,32,32,32,32,32,146,144,49,48,48,18,31,32,32,32,146,144Cshif 

t»/<spatiedad 

291 data50,53,48,18,31,32,32,32,=14shift>/{spatie>b8 

292 remkkskkskregel ZIkAAAAAAAAAKAK AKK CShiftd/Sspatiedf 2 

293 datal8,31,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,-1Cshift 

>»/{spatied>9d 

399 wemnkkkkexvaste vartabelenkkkkikhkktkdkkek hk shif 

t>/{spatied73 

400 vo=54296:2d=54277:sv=54278:gr=54276:fN=54273: f1=54272:hof=chrsC2Id shiftd/s 

spatiedcl 

405 ché=chr$(19):qr$=hosthos+hos:la$=chr$(17):gof=laftlas{shiftd/éspatied32 

410 sp$(i)=ch$:forx=ltoltispsCid=spstidthossnextsshiftd/{spatied6c 

415 forx=ltol4:sp$Cid=sps(idtlas:next{shiftd/{<spatiedd6 

420 gk$Cid=spsCidtehrs( 159) trost"gokken"<shiftd/{spatied73 

425 gKk$C2I=spECiNtehrs(129)+rost+"gokken"<shiftd/{spatied7a 

430 sp$(2)=spsCidtchrs$l129)trost"spelen"<shiftd/Sspatied70 

432 sp$(3)=spslidtchrsC12I troost” “<shift>»/{spatiedbe 

435 sp$Ci)=spsCidtehrsC159)+rost"spelen"<shift>/<spatied69 

440 ne$(id=chi:forx=ltol6b:nef(ij=nesCidtlaf:next{shiftd/{spatied db 

445 forx=ltoli2:ne$C(id=nesCtidthos$:nextéshiftd/<spatie»f8 

450 ne$(2)=neslidtchr$li2)trost"nemen"<shiftd/<spatied50 

452 ne$(3)=nesCidtchrs(129dtrost” “<shift>/<spatied3a 

455 ne$(id=nes(id+chr$(159)+rost"nemen"{<shiftd/{spatied5l 

460 pgsC(i>=ech$:forx=ltol2:pgs(id=pgslidtlassnextéshift>/<spatie>27 

462 pgs(2d=pgsliltlastlasthostgrséshift»/<spatied7a 

465 pg$(3)=pgsli)tlastlastlastla$thosthos{shiftd/Cspatie>60, 
pgf(4l=pgt (3) +laftlaftshiftd/Cspatie>67 
pg$(id=pgslid+grstgrs<shiftd/<spatie>65 
gy8t4d=chr8(28Itroft"gok"Cshiftd/<spatiedcce 
ggstB)=chrs(ldd)trost"gok"<shift>/<spatie»f5 
gystbd=chr$lidddtroft"---"<shiftd/Sspatiedas 
vts (3h=chrsC158t" “Cshift>/<spatie»35 
vts(i)=ch$tgoftgostgoftgosthosthoftchr$(158)trost" "{shiftd/{spatie>20 
vtsCloevtsCidtehrs(152)4! PtehrsClss)t” "tchr$(152)+4+” “t+echr$C158)+t” 7 

hift>/Xspatie>57 

485 vt$(id=vtsCidtechrs(152+" “+echr$C(158)+4” “<shift>/<spatie»5c 

d30 dimaktliidsreturnéshifts/éapatiekbe 

499 vemkkkkkkvariabele variabelenkkkkhnrkktkkhkkkkkkkkkkkktktkkkikkkkkktshif 

tj/{spatiedl9 

500 a$(i)=chr$(i44)+" AAA AAA AAA AAA"<shiftd/Xspatied6f 

5O2 as(2d=chr$C 28+" WWW WWW WWW WWW" <shift>/<spatie»55 

504 asts)=chrs( 30)+"355 SOS SSS SSS Cshifts/<spatie»os 

506 af$(d4d=chr$C ZIIH" EEK EEK KEK E&&"Cshiftd/<spatied57 

508 a$(Hl=chr$ClIGNH" KKK XKK XXX KKK" <shift>/<spatie>60 

BIO a$(6d=chr$(iSBIA" KAK HAK KK HAA“ CSshiftd/Cspatiedof 

512 a$(T7)=chr$C144)+"QAE QEQ AA AAA"Lshiftd/Sspatiedde 

514 afCB)l=chr$ClS2IH"%%% %%% GAL G%%"<shiftd/<spatie,d4 

516 as(Il=chr$CLEIJH" SSS SSS 558 SES" Cshiftd>/Lspatie>98 

BIB as{lOje-chrsCi4a+" ZA ZZA 224 ZEE Sshlftr/espatledas 

520 af(ti)=chr$Ci54)+"EEE GEQ OPP GOB" Sshifts/spatliedad 

522 a$(12)=aslid:aflOl=asCliijtshiftd/<spatie)30 

A “techr$(152)4" "+chr#(28)éshiftd/es 

patie 

526 vts$C2d=vts Cat” “tchr$C1i52)t" “tchr#C28)t” “<shift>/<spatie>08 

627 vER(2devts(h)rchrsClag)n” teheel28) "skl$=chr$(l56):returnéshift»/{spa 

tie>68 

699 remkvastzettoets indrukken en spelenkkkkinikkikkkkkktkktktkkkkkkkkktshif 

t>/<&spatied5b 

700 printsp$Cid<shift>/<spatied30 

710 printvt$(1i):forx=OtoSOrnextxéshiftd/<spatied6b 

715 printsp$C2)CXsnift>/<spatie»dd 

725 printvt$(2)4shift»/{spatiedsb 

730 getx${<shift>/<spatied05 
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731 ifxs$="1"thent=4:gosub80O{shift»/<spatie»57 
732 ifx$="2"thent=10:gosub800Xshift»/{<spatie>66 
134 ifxS=chr$32)Ithenva=0:forr=ltodralxd=Ornext:igosubb0Oigoto700sshiftd/Cspatie 
>82 
735 ifx$=chr$C13)thenprintsp$(3):t=-l:gosub800:gotot00sshifth/Sspatie,34 
745 ifx$<dchr$(133)then/5Olshift>/&spatied7c 
746 vtsC2d=leftslvESC2I, 12) tvtsCI)trightslvtsC2),18)Cshift>/<spatie>50 
747 al{id=trva=ligosubI75igototOOlshiftd/Lspatiesbd 
750 ifr$hcehr$(i34dthen755éshift>/{spatie)79 
751 vtsC2)=lefts(utS(2I,. 18) tvtsCI)erightslvts(2, 12) Sshiftd/Sspatie,55 
752 al2d=l:va=l:gosubI80:goto70Oshifth/{<spatiehaf 
755 ifx$hchr$C135dthen760Xshiftd/éspatie>63 
756 vtsC2d=lefts(uvts(2h, 24)rvts(I+rightslvts(2),G)Cshiftd/Sspatied74 
757 al3=tiva=tigosubI85rigoto70Osshiftd/sspatiedae 
760 ifx$>chrs$Cl3elthen765<shift>/<spatiedbe 
vEsC2deleftsCvts (2), 30) 4vtsCHI shifts /espatiesll 
762 al4)=ltva=l:gosub9I0:goto7d04shiftd/Sspatieda2 
goto700shift»/<spatiedd! 
vemkkkkkkteller bijwerkenkkinkikkkntr kink khhtkkktkkkkkk kkk A KAK CShif 
t»/Xspatie>fe 
800 iftélandtt=Othenl5ôéshiftd/{spatiedc0 
<shift»/<spatie»d2 
801 ift=-ithentt=tt-l:goto8304shiftd/éspatiedd2 
802 ift=Othen865<shift»>/<spatieje0 
805 fovx=ltot:ttetttilshifts»/Cspatle,df 
830 pokevo,l5:pokead,1:pokesr,24:pokefh,33:pokefl,135:pokegr,17<shift»/<spati 
e>09 
835 forz=lto5O:inext:pokegr,16{4shiftd/{éspatie»92 
840 printch$tab(6)roschrsC3idittschrsC(157)” “&shift>/{spatie»69 
855 ift==tthen865{shiftd/{spatied3f 
860 nextxéshiftd/<spatie>85 
862 iftt»-l0OOthenprintros limiet=l000, druk toetsenieuw spel. Cshift»/<spati 
edeb 
863 iftt>=100O0thengetx$:ifx$=""then863éshiftd/{<spatie) da 
864 ifttd=1000thentt=0:ag=0:vaz0:ak=i:forx=itod:alx)=Ornext:gotol984shift)/<sp 
atie>06 
865 ag=O:return<shiftd/{spatied52 
899 remkkkkde rollen laten draailenkkkkkkAAAAAAA AAA AA AAA RAAR A AAA AA AKA K AK CSh Ì 
ft>/éspatiedle 
900 ifalir=ithenifal2}=lthenifa(3)d=lthenifal4)=lthen970shiftd/<spatiedbd 
901 pokevo,5:pokesr,250:pokefh, 1O:mu=25{shiftd/Sspatiedbf 
902 w=intC2krnd(idd+igshiftd/<spatie>ba 
305 forz=ltowsshift>/<spatie>2l 
910 forx=ltoll:gosubl0000lshiftd/éspatiedf5 
915 printch$gqostab(2dastk+id:sprinttab(2jaslx)diprinttab(2dastx=id<shift»/<spati 
8,99 
920 nextx:nextz<shift)»/<spatieda3 
930 fory=ltod<shift>/<spatie>Ga 
935 ifal{yd=lthen965{shiftd/{spatie)28 
940 aClyt4d=intlrakrndtiddti:sifaly+dddilthenalytdd=rgishift»/<spatie»8l1 
945 forx=ltoalyt+4):gosubiOOOOtshiftd/<spatieddd 
950 printch$gostab(2dastxtid:printtab2jastx)siprinttabl2dastx-i)shiftd/<spati 
edbc 
909 nextxkshifte/spatie,62 
960 onygosub975,980,985,990Sshift»/Sspatiedad 
nexty{shift>/<spatiedld 
gotoi0004shift>/<spatiedd! 
forx=Otol2:a$CHd=leftsC(aslxd, iIDtagr$trightslas(lr),12)rinextireturnéshiftd/gs 
patied9c 
980 forx=-Otol2saflxd=leftslaftKl,Shtarstrightflaflr),Sdeinextsreturnsshifth/ésp 
atie>b8 
985 forx=Otol2:afxd=leftslaf(xd,Itgr$trightslaftx),ddsnextsreturn<shiftd/<sp 
atie>b5 
990 forx=Ôtol2:afrd=leftsCastrd, 13) tgr$inextireturn&shift»/<spatiejcf 
II remkkkkkAkwaarde testenkkkkAAAAAAAAA AA AAA Ahh hhh kkk kk AAA Rink SSh i 
ft>/<spatie>72 
1000 ifal5d=al6dthenifalsd=al7)thenifalsd=alBdthentedkalod:va=0:gotol300Sshift 
»/{spatied6c 
1005 ifal5)=al6)thenifals)dzal7)thent=3kalid:va=0:gotol30OLshiftd/<spatie,fd 
1010 ifal6)=al7)Ithenifalb}z=al8)lthent=3kalbl:va=0:gotol3004shiftd/{<spatiedef 
1015 ifal5)=al6thenifal7)dl=tithenifal8)=lithent=50:va=0:gotol3004shift»/{<spati 
eh 
1020 ifal7)=zalB)lthenifalS)d=ilthenifal6G)=ilthent=50:va=0:goto13004shiftd/<spati 
e,40 
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1022 ifal5)=al8dthenifal6d=iithenifaltd=lithent=50:va=0:gotol300Xshift»/éspati 
e»92 

1023 ifal6)=al7dthenifal5d=itthenifa(8d=lithent=50:va=0:gotoi300shift»/{spati 
e»93 

1025 ifal5)=al6)thenifalb)=lthent=2:va=0:gotol300Xshift>/<spatie)88 

1030 ifa(7)=al8)thenifalt)=ithent=2:va=0:gotol300shifts/<spatied8l 

1035 ifalSd=alBithenifalhd=lthent=2:vaz0:gotol3004shift»/éspatie>8c 

1040 ifat5)d=lthent=i:va=0:gotol300{shift>/{<spatie>07 

1045 ifal8)=ithent=isva=0:gotol3004shiftd/éspatied0f 

1050 ifvalChlthenlO55<shift»/{spatie»,17 

1052 forv=lto4:forw=Oto2:poke556ld+vkdtw, 2rnextw:inextv<shiftd/<spatie»3c 

1053 va=O:forv=lto4:alv)=0Oinextv:gosub500:gotol2004shiftd/<spatied00 

1055 gosub500:goto70Otshiftd/<spatied27 

1199 vemkkkkkeerste Keer spelenkkkkkkkri kh kkkkkkkkk Cshi 
ft» /<spatied2c 

1200 iftt=Othenl50Xshift>/<spatied2e 

1205 ak=ak+i:ifak=76thenak=ig<shiftd/{spatiedbe 

1210 rg=int(lOkrndfl)das24shift)/éspatiesls 

1215 iftt>900Othenak=ltra=iiigs=i:gotol285{4shift>/<spatie)ld 

1220 ifak=75andtt>700thenra=13:gs=2:gotol285<shift>»/<spatiejcf 

1225 ifak=75andtt>300thenra={5:gs=3:gotol285<shifth/<spatiedci 

1230 ifak=75andtt>9Sthenra=l6:gs=3:gotol285<shift»/<spatiedf6 

1235 ifak=75andtt{i00thenra=l7:gs=4:gotol285<shiftd»/éspatie>de 

1240 iftt<lOthenra=lS:gs=2:gotoi285<shifts/<spatienfd 

1245 iftt>70Othenra=l2:gs=l:gotol285{shift»/<spatiedcl 

1250 lftt>50Othenra=l2:igs=l;gotolä85{shift»/4spatie,fc 

1255 iftt»>300thenra=l3:gs=l:gotol285{<shift»/{spatie»fe 

1260 iftt>200thenra=13:gs=l:igotol285{shift>/{spatiedfd 

1265 lfttsl5Othenra=lâigs=ligotolë85tshifts/éspatledef 

1270 iftt>10Othenra=l4:;gs=l:gotol285{<shift»/{<spatiedea 

1275 iftt»>5Othenra=ld:gs=l:gotol285C4shift>/{spatiedd3 

1280 iftt>Ithenra=l4:gs=i&<shiftd/<spatiedaë 

1285 getx$:ifx$=chr$(13)thenprintsps(3)rite-iigosubB00:gotod00sshiftd/spatiedde 


1287 ifx$="1"thent=4:gosub800Xshift>/<spatie»8c 
D Ì | C 


1289 ifx$="2"thent=10:gosub800<shift»/<spatie>b4 
BASF FlexyDisk 5,25”, BASF FlexyDisk Science BASF FlexyDisk 





BASF Fle 
















5,25”HD, 8” 5,25”, 5,25”HD 3,5” 

Volledige bedrijfszekerheid nu bij De top-diskette voor gebruik in De diskette met extreem 
twee keer zo lange levensduur: wetenschap en techniek. hoge registratiecapaciteit 
gemiddeld 35 miljoen lees- Temperatuurbestendig tot #70°C. _ voor de nieuwe micro 
schrijfkoppassages per spoor. Volledige oppervlaktecontrole. disk drive generatie. 


Gemiddelde levensduur van 70 Leverbaar in 1D en 2D 
miljoen lees-/schrijfkoppassages _ uitvoering. 
per spoor. 











Ns 

















FlexyDisk 


eene. 


nm EDERSERDREBINI IN 





BASF Nederland BV, 
Divisie Datatechniek 
Postbus 1019 

6801 MC Arnhem 
Tel. 085-/717302 


FlexyDisk E 


IEEE 






NELE 


N 
N 





100% certified. 1 Bork Kerciulel \ 1OO% certified 


Bedrijfszeker door top-technologie 
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LISTINGS VAN L 


1291 printsp$(t):forx=lto7Oinextéshift»/{<spatiedfb 

1293 printsp#(2):forx=lto7O:next:gotol2854shift>/éspatie>43 

1299 remkkkkkkgokken of nemenkktkksekkkdk kkk kkk kkk kk shi 

ft>/Xspatie,fd4 

1300 pokevo,7rforx=lto4talH=Ornext{shiftd/<spatied6c 

1301 forv-lto4:forw=Oto2:poke5Sol4tvkdtw,2rnextwinextvéshift»/<spatie,34 

1302 ggsCid=str$Cintiltti)k1.4))Kshift>/Cspatied8d 

1305 ggs(2)=str$(t)Xshift»/<spatie>28 

1310 ifag=Othengg#(3)="000";gotol3204shift>/<spatie>34 

1315 ggs(3)=str$lint{t+i)k.6))Cshiftd/{spatied89 

1320 forx=ito3Xshiftd/<spatiede0 

1322 iflen(ggs(x)d=lthenggsa)="0O"+rights(ggs(r), 1D shiftd/<spatiedf2 

1325 iflentggs(x))=2thenggs(x)="00"+rightstggs (xd, 1) <shiftd/<spatiedfb 

1330 iflen(ggs(x))=3thenggs(x)="0O"+trights(ggs(r),2)<shift>/<spatie>db 

ian iflen(gg$(x))=4thenggsC(xd=rights$lggs lx), 3) Cshiftd/Sspatied42 

1337 nextxixx=2tprintpgs(d)ggsl4)shift>/{spatiese8 

1340 getxs:ifxsdchrs(32)then13454shift»/{spatie>48 

1341 printpgs(l)ags(6)pgs(3)ggs(6)pgsl4)ggs(Sìnes(3)sps(3):gosubBOOshiftd/ssp 

atie>32 

1342 printpgs$t2)ggs(6):gosub500:gotol200Xshift»/{spatie»83 

1345 ifxs=chr&(I3)thenprintpgs(2)ggstbdnes(Z)spsl3d:agsagtirgotoldOOXshifts/{s 

patie>45 

1350 printne$Caadpgstiklsggstidpgst2dechrst28)ggs(2dpgs (3) klsggs td gks aad shi 

ft>/{<spatied06 

1351 ifkl$=chr$Ci56)thenkl$=chr$(i4d)ikx=l:gotol3554shiftd/<spatie>65 

1352 ifkl&=chr$(i44dthenkl&=chr$(156)d:ixx=2ishiftd/Sspatiedd8 

1354 forx=Oto2brinextrishiftd/{<spatied57 

1355 mu=25:gosublO000Ogshift>/<spatie»65 

1360 printne$(2):printgk$Ci)Xshift»/<spatie>6b 

1365 gotol340<shift>/<spatieddf 

1399 remikkkkgokkenkkskkkkkkkkkkkkkkkkkk shi 

ft>/<spatiedfe 
w=intCiBkrnd(i))+15:pokevo,7Xshiftd/<spatied0e 
rb=int(1Okrnd(1))+irongsgosubl500,1510,1520,1530<shift>/<spatiedcd 
forx=itowsshiftd/{spatied2e 
printpg$C(i)rvoschrs(144)ggstidpgsC3)chrsC158)ggs 3) <shiftd/Lspatied2f 
mu=50:gosublO000osshift»/{<spatieda6 
printpg$(l)rofchr$(158)ggs(I)pgs(3)ehrs$(l44)ggs(I):nextishiftd/Cspatieddc 
ify=lthenprintpgs(i)roschrs(158)ggs(lpgst3)ggs(6):tevallggsCidD<shiftd/< 

spatie>3l 

1430 ify=2thenprintpgs(3)roschrs(158)ggs(3)pgs(ldggs(6):t=vallggs(3)shiftd/< 

spatie>35 

1435 ify=2thengosub800:printpgs(3)ggst6)pgsl4rggs(5):gosubs00rag=0:gotol200sh 

ift»>/&spatiedfS 

1440 ifag=3thengosub800:printpgs(1)ggsl6)pgsl4dggs(5):gosubs00rag=0sgotol2004s 

hift>/{spatie>92 

1450 goto13024shift>/{<spatied26 

1499 remkkkkkpercentage gokkans kkk kkk shi 

ft»>/{spatie)lid : 

1500 ifrb<6theny=2:return<shiftd/<spatie»0d 

1505 yeliveturn<snift»/<spatie»ga 

1510 ifrb<btheny=2:return{éshiftd/éspatied34 

1515 y=l:return<shiftd/{<spatie>80 

1520 ifrb4theny=2sreturn<shiftd/<spatie» 23 

1525 y=ltreturn<shiftd/{spatiedde 

1530 ifrb<3theny=2:return<shiftd/<spatied2e 

1535 y=lsreturnéshiftd/{spatied94 

9994 wemkkxmuziek rollen laten draaienkkkkkkkkkk rek kkkkkkkkkktsh i 

ft>/Xspatie>98 

10000 pokegr,17:foru=mutonu-2step-.5:pokefh,u:snext:pokegr,16:mu=mutlsreturnésh 

ift>/<spatie»bl 
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GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 




















































































































































































































































































































































































































































































































































































































































































































































































































Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt En 
overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 











adres. Adviesprijs Í 695,- ex. btw. BROTHER INDUSTRIES LTD., NAGOYA/JAPAN 
pj" ee 
BO N = Ik wil meer informatie over de HR-5. 

Naam: 
Adres: 

Postcode: Plaats: 











Opsturen naar: Brother International (Nederland) BV, Postbus 600, 1180 AP Amstelveen. a 
J Battery powered en netvoeding. 


_ Brother International (Nederland) BV, 
At 25-27, 1185 ZM Amstelveen. Telefoon 020-4744711" 





COMMODORE 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van A op 
aans 


hoogste / regels van 2 


IK ZOEK HARDWARE EN SOFTWARE 
® Commodore 64 met monitor kabel en 
software voor aansluiting op viditel mo- 
dem merk Philips van PTT. J. v.d. Waard, 
Gyselstr. 5, 5087 TE Diessen, tel. 
04254-1692. 


IK WIL RUILEN 

®@ Ik wil spelletjes voor de C64 ruilen. 
Stuur je lijst + telefoonnummer naar R. 
Boots, Vlietw. 311, 1824 LM Alkmaar of 
bel naar (072) 615055. 


® Te ruil: Software voor de CBM 64. Tel,: 
070-931573 (na 18.00 uur), B. Dannis. 


® Wie wil spel en gebruiksprog. op cas- 
sette voor de CBM-64 ruilen. Stuur uw 
lijst naar: R. Engels, Esdoornstraat 36, 
2565 HS Den Haag. 


® Heb Sony spoelenvideorecorder + prof. 
monitor. Wil ruilen met 1541 diskdrive. 
Tevens te koop Philips mmitor en Tape 
Queen. RJ. Walbeek, 04132-64900, bij 
voorkeur weekends. 


® Voor Commodore 64. Wil je ruilen 
stuur dan je lijst naar: B.G. Neve, Past, 
Bastinstr. 6, 6142 BK Einighausen (NL), 
tel. 04490-21722. 


® C 64: Wie wil er spelletjes op tape 
met me ruilen. Ik bezit o.a, Raid over 
Moskou, Saloflight, Jump jet. Stuur lijst 
+ bandje naar John Bouwman, Gouwstr. 
13, 2033 Haarlem. 


@ Ik wil graag CBM-64 software ruilen 
op cassette. Zelf heb ik 600 prg. Inte- 
resse? Stuur jouw lijst naar E.M. Busch, 
Voorweg 102, 2715 NG Zoetermeer, tel. 
0793-212814. 


@ CBM-64 software op cassette + lijst 
opsturen naar Danny van Loo, Kleempen- 
dorp 2c, B-9210 Heusden - België. Gas- 
sette + mijn lijst in #3 weken terug- 
gestuurd met andere software. 


® CBM-64 software te ruil, disk en cass. 
Stuur uw lijst naar M.H.A. Rouwhorst, 
Zieuwentseweg 56, 7136 LC Zieuwent of 
bel 05445-532 


® Ik wil graag goede en mooie prg.’'s rui- 
len op tape en disk. Stuur je lijst op naar: 
T. de Bok, Lisdoddelaan 13, 4143 VG 
Leerdam. 


® CBM-64 software ruilen, 1200 prog. 
op disk. Stuur je lijst naar C. den Ouden, 
Hiddenhof 213, 1354 EV Almere. lede- 
reen krijgt antwoord. 


© Commodore 64 software te ruil! (op 
cassette) plm. 300 programa’s. Stuur uw 
lijst naar: R. v. Asperen, Nieuwstraat 28, 
3243 AN Stad a/h/ Haringsvliet (Z-H). 


® Te ruil aangeboden +600 CBM pro- 
gramma's. Tevens gevraagd goede teken- 
programma's of tek. voor printer. Stuur 
uw lijst aan G. Kevenaar, Strevelsweg 
80a, Rotterdam. 


® ik bezit 230 programma’s voor CBM-64, 
meest spellen. Ik wil ruilen tegen goede 
spellen of grafische prog. Stuur lijst naar 


ave, Een advertentie mag ten 
agen lang zijn. 


A.J.C.L. v. Opijnen, Chopinstr. 15, 5802 
HB Venray. 


® Ik zoek mensen die computerspelen 
met mij willen ruilen, alleen CBM-64. 1. 
Tuylaerts, Ringlaan 132, 3583 Overpelt 
(België). Tel: 011/642584. 


@® CBM-64 software te ruil +400 prg. 
waaronder toppers. Schrijf of bel naar Da- 
niël v. Heugten, Elandweide 28, 3437 GR 
Nieuwegein, 03402-33064. 


® Ik zoek printshop in ruil voer machine- 
taal programma’s, zoals Aerobics, Magic 

Desk lenz. N.V. v. Rossum, De Nes 13, 

4002 HB Tiel, tel. 03440-12789. 


® Ik zoek software voor de Commodore 
16, ik heb zelf 10 goede programma’s. 
Belt u na 20.00 uur en voar 22.00 uur 
02152-66706 of schrijf naar: A. Doff, Za- 
delrob 4, 1273 JA Huizen (N.H.) 


® Ik zoek goede progr. voor CBM-64 
(cassette). Graag educatief, wisk., zakel, 
80 karakter progr. ruilen tegen o.a. veel 
spelen. Stuur uw lijst naar |. Groothengel, 
Stationsstr. 18, 7622 LX Borne. 


® Wie heeft meer dan 1000 progr. en 
wie kan mij helpen aan het nuinr. van 
Commodore Dossier. Bel of schrijf naar: J. 
Valkenburg, Kranssen 35, 5581 AG Waal- 
re, tel. 04904-14614. 


® Ik bezit ca. 100 prgrs (CBM-64 op 
ass). Spelprogrm en gebruiksprogrm. Wie 
wil met mij ruilen? Schrijf naar: P. Stoffe- 
ris, Schaperijstraat 81, 9900 Eeklo 
(België). 


® CBM-64 software te ruil (vooral spel- 
letjes) op disk of cass. Stuur je lijst naar 
Reinout Verburgh, Notelarenlaan 4, 8300 
Knokke-Heist (België). 


@ CBM-64 software te ruil op cassette of 
diskette. Stuur je lijst naar Serve Moer- 
mans, Micastraat 17, 6216 AN 
Maastricht. 


® Een Philps G7000 zgan+15 spelcas- 
settes ev. te ruilen voor diskdrive of prin- 
ter voor Com. ’64. Vraagprijs f 500. 
Papendrecht 078-159042, M. de Haas. 


® Gebruikersgroep bezit ca. 1500 C64 
prg. zakelijk, educatief, utilities en games 
op t/d. Willen ruilen. Stuur lijst naar J. 
Bissels, L.V. Leydenstr. 68, 5213 BB 
s'Hertogenbosch. 


® CBM-64 software te ruil (cassette). Ik 
heb +500 spelletjes. Stuur je lijst naar 
Th. Hermens, Trompetstraat 73, 6544 NG 
Nijmegen, tel. 080-7809856. 


OVERIGEN 

® Wie helpt mij aan een schema en of 
aansluitingen van een Olivetti praxis 20 
typemachine als printer op een CBM 64. 
Mag serie of parallel zijn. Tel. 
01887-3373, W.P.H. Smits. 


@ Wie helpt mij aan (kopie)-handleiding 
voor printer merk: Centronics type 779 of 
tips voor deze in combinatie met CBM64. 
Boy van de Laar, A.V. Anhaitstr. 64, 
5616 BH Eindhoven, 0940-523292. 


® Tegen een kleine vergoeding wil ik 
printwerk doen (b.v. tekstverwerking van 
tekstverwerker GD febr. 85). John Stef- 
fers, Catharinaland 114, 2591 CP Den 
Haag. 


® Ik zoek beschrijvingen van VIC-forth 
en v/d VIC-1112 1eee-488 interface voor 
VIC-20 tegen verg. of ruilmat. EW. Kalff, 
Pollux 191, 3902 TE Veenendaal, 
08385-26419, 


® Wie wil mij helpen. Ben pas in het be- 
zit van de Comm. 54 en zou graag wat 
programma’s willen bezitten. 

Alles is welkom. “De computer en- 
thousiast”’ C. Franckstr. 27, 2625 BX 
Delft. 


® Nummers van Compute! A. Janssen, 
Smits van Oyenweg 16, 5394 AS Oyen. 
Tel. 04129-313. 


® Ben op zoek naar tests van de volg. 
printers: Star SG 10, Epson RX 80. 
Gaarne (tegen verg.) kopie zenden aan: 
L.J. Schambach, Colenso 59, 3761 GM 
Soest. 


IK WIL RUILEN 

© Te ruil: GBM-64 software + 800 
progr. op cass. of disk. J. Kruiter, 
Marsstraat 32, 8303 AM Emeloord. Tel. 
05270-14162. 


@ CBS spelcomputer + stuurmodulen + 
14 cartrigde’s tegen 1541 diskdrive of 
commodore printer of 200 tot 300 prg. 
Tel. 045-418640. 


© CBM-64 software te ruil w.o. Simon’s 
Basic, Ghost Busters, Fort Apocalypse 
enz. Stuur lijstje naar: D. Meure, Lamo- 
raalstr. 7, 1815 DN Alkmaar. 


© Ruil van programma’s op commodore 
64 alleen op diskettes. Stuur mij uw lijst 
ik zend dan de mijne. A. van Langenho- 
ven, Vuurkruisentaan 34, B-3500 Hasselt, 
Belgie. 


® CBM-64 software te ruil op cassette. 
Stuur je lijst aan: Jan Blok Bergumermeer 
4 te 3068 KN Rotterdam (ledereen krijgt 
antwoord). 


® CBM-64 software te ruil plm. 400 pro- 
gramma's, disk of cassette. Stuur je lijst 
naar: F. Janssen, Dorpstraat 38, 2441 GH 
Nieuwegein. 


® CBM-64 softw. te ruil. Vooral spell. 
cass. of disk eventueel kopen. Cleyman 
W, Kouterstr. 79b, Vrasene 2788 Oost- 
Vlaanderen (Belgie) zoek ook goede tekst- 
verwerker. 


@® CBM-64 software te ruil op cassette. 
Bezit 300 spellen + 100 programma’s. 
Ook aankoop van boeken + cardridges. 
Adres:Peeters, Katia, A.Verbovenstr. 20, 
3010 Wilsele, België. 


® Wie heeft de C- compiler daarvoor in 
ruil div. software e.d. 01720-73424 p.s. 
ik sta open voor andere aanbiedingen. 


® CBM-64 software (cass.) te ruil. Ik be- 
zit 350 prg. stuur je lijst naar: Kurt Ver- 
haegen, Constant Verhulststr. 19, 2590 
Berlaar (Antwerpen), België. 


® Commodore 64 software wie wil rui- 
len. Stuur je lijst naar: J.J. Manusama, 
Arena 26, 2924 VA Krimpen aan den 
lissel. 


® CBM-64 software te ruil op cass. plm. 
300 programma’s stuur je lijst naar: 
Ties Blaauw, Tuinstraat 112a, 9404 KP 
ASSEN. 
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© CBM-64 software te ruil: + 1300 pro- 
gramma’s. Lijst sturen naar de Meyer G, 
Gust van den Heuvelstraat 40, 3140 
Ramsel, België. 


@ CBM-64 software te ruil disk en cass. 
stuur uw lijst naar: Jamers, Reeenlaan 35 
3540 Zolde, België. 


® Software voor comm. 64. Ik heb onge- 
veer 1900 prg. Allemaal voor tape o.a, _ 
Gremlins. Stuur lijst naar E‚ Beumer Belle 
vue 1, 6871 BP te Renkum. of Vos. 
Alexanderweg 54, 6721 HH te 
Bennekom. 


® Software voor cbm-64 ik wil ook voor- 
al flightsim. ik wil fightsim Hf ruilen tegen 
mijn + 300 programma’s. H. Bloemink, 
Zwaardleliestraat 42, 3053 VX Rotterdam 
p.s. fil wel cass. 


® Wie wil software ruilen voor CBM-64 
stuur lijst naar: J. Smedts, Koraalstr. 17, 
1850 Grimbergen (BELGIE). + 500 GA- 
MES + Utilities in bezit. 


® Spelletjes te ruil voor CBM-64, zoals 
Fort, Wimbledon 64, Football, Decathien, 
enz. en ook nuttige programma’s, o.a. 
spreekprogramma’s, btw, copy 190. Stuur 
je lijst naar Daniel Dekkers, Wijne- 
gemstraat 14, 2200 Borgerhout België. 


IK BIED HARDWARE 


EN SOFTWARE AAN 

® Te koop: VC 1515 printer. + 2 pak- 
ken printerpapier, weinig gebruikt. Prijs 
f 275, Tel. 01804-18211. 


® Te koop: VIC-20+16k+ software + 
boeken. Prijs f 250,-. Tel. 035 — 
233238. 


@ Te koop: postzegelbestand voor 
chm-64 of 128 schrijven naar: Staelen, 
Eendrachtstraat 36, 8400 Oostende 
Belgie. 


® KCS Disk speedioader 64, f 50,- 
Hoogedoorn, Rotterdam. Tel. 010-850312 


® PC-adres nieuw ongebruikt t.e.a.b. L.D. 
Bultje Kallandspad 27, 8891 GS Midsland. 


© Printer MPS-802 als nieuw in doos 
teab. L.D.Bultje, Kallandspad 27 8891 
GS Midsland. 


® CBM-64 + uitbreidingsprint + dataset- 
fe + musicmaker + tiental boeken 4000 
bfr M.A. De Smet, Dwarsstraat 42, 
B-9470 Denderleeuw, België, tel. 
053-667923. 


® Seikosha gp 100 VC printer voor CBM 
64, 1 jaar oud, prijs f 450,- tel. 
04902-42459, 


®@ Te koop 1520 printer/plotter f 250,- 
incl. papier & pennen 10 mnd, oud, wei- 
nig gebruikt. D.M.G. Stroo, Kroonkruid 66, 
2914 BN Nieuwkerk a/d Yssel. tel 
01803-16072. 


® Cass. 1530 + speedloader f 100,- 
(1800 BF) wil ook ruilen: + 120 spellet- 
jes, o.a. zaxxon, ghostbusters, ook 
spreeksynth. schrijf: B. Tachelet, St. Rein- 
hildisstr. 41, 2510 Mortsel, België 


U kunt uw advertentie- 
opdrachten sturen naar: 
CD-MARKT 

t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgstraat 11 

1059 AT Amsterdam 
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VAN BASIC 
TOT MACHINETAAL 
oP COMMODORE 64 











AKTUELE 
MICRO- 
COMPUTER- 
TECHNIEK 


GAAN 


Van basic tot machinetaal op Commodore 64 


Ondanks de vele boeken die inmiddels over 
deze populaire micro zijn verschenen is er nog 
nooit een boekwerk zo breed en diep ingegaan 
op alle facetten en mogelijkheden. 

Stap voor stap leert u werken met 

© Basic ® Hulptalen (Logo, Pascal, Pilot) 

© Geluid e Grafische mogelijkheden 

© Accessoires ® Machinetaal 

D.m.v. duidelijke programmavoorbeelden wordt 
u vertrouwd gemaakt met uw C.64. 

U blijft nu niet meer steken bij een eenvoudig 
spelletje: door logische opbouw en professionele 
voorbeelden komt u tot een volledig gebruik 
van uw computer. Niet alleen de computer wordt 
uitgebreid belicht, ook de talrijke accessoires. 


In ieder hoofdstuk zal tekst en uitleg 
aangevuld worden met listings van direkt 
toepasbare subroutines, waardoor het geheel 
logischer wordt door praktische voorbeelden. 
Het enige dat u nodig heeft is een Commodore 
64/128. Dit handboek is zowel geschikt voor 
beginners als voor gevorderden. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Van basic tof machinetaal op C64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2200, 

prijs f 99,- excl. porto, prijs aanvulling 

{49,95 


Vor Rn er 


Miecrocomputer techniek — uw hobby met toekomst 


Dit superaktuele naslagwerk stelt u alles ter 
beschikking wat u anders moeizaam uit 
tijdschriften en vakliteratuur bij elkaar moet 
zoeken. 


Software voor hobby en beroep 

U ontvangt o.a. direkt toepasbare programma’s, 
tekstverwerking, adressen- en voorraadbeheer, 
maar ook voor schaken, grafieken, sturen en 
regelen, afstandsbediening enz. 


Bouwschema’s 

Bouwscheme’s gedrukt op plastic folies geven 
u de mogelijkheid computers met een vaste 
schijf, verwerkingsuitbreidingen, interfaces, 
in- en output-apparatuur zelf te bouwen. 


Software-pakketten 

Opdat u de gebruiksmogelijkheden van uw 
apparatuur volledig kunt benutten, ontvangt u 
uitvoerige informatie omtrent de software- 
pakketten CP/M, MS/DOS, UNIX en OASIS. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Aktuele microcomputertechniek. 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2300, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95 


_ KEUZE 3: Spellen op de C64 


Het zwaardere werk op C64 


Dit naslagwerk is bedoeld om in duidelijk 
Nederlands de moeilijkste spellen voor de 
Commodore 64 uit te leggen. ledere simulatie of 
spel zal in detail worden besproken, met kleuren- 
afbeeldingen om zelf te controleren. 


In SUBLOGICS FLIGHT SIMULATOR zal bijvoor- 
beeld een volledig vlucht met start en landing 
stap voor stap worden besproken. Zo zullen ook 
onder andere NATO COMMANDER, JUMPMAN, 
MINER 2049ER uitgebreid aan bod komen. 


Het basiswerk zal 75 topspellen beschrijven, dat 
vervolgens iedere drie maanden met zo'n 25 
spellen wordt uitgebreid. Door middel van 
verlanglijstjes, die ingevuld kunnen worden, 


zullen we steeds de populairste spellen en 
simulaties opnemen. 


Bestel nu reeds dit unieke naslagwerk, dan 
zenden wij het u direkt na verschijning toe. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan de pagina. 


Het zwaardere werk op C64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 3400, 
prijs f 99,-— excl. porto, prijs aanvulling 

f 49,95, verschijning: begin 1986 


BESTELCOUPON 


Zend mij tot wederopzegging het aangekruiste 
naslagwerk, waarbij ik mij tevens tot wederop- 
zegging abonneer op uw aktualiserings-service. 
Na ontvangst betaal ik f 99,-— exkl. porto 


ut NN 


Het is als bij de krant: vandaag nog aktueel, morgen 
”oud nieuws”. Op nauwelijks enig ander terrein gaat 
de ontwikkeling zo snel als in de computer- 
technologie. Regelmatig worden nieuwe en betere 
programma’s ontwikkeld. Reden voor ons om deze 
boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvangt u circa 4 maal per jaar 
een aanvulling van ca. 120 pagina’s op uw 
naslagwerk, welke u eenvoudig kunt invoegen in het 
basiswerk. U blijft dus beschikken over een boek dat 
NOOIT VEROUDERT. 


JA, 


Naam: 
Adres: 
PC/Plaats: 














Handtekening: 


1 Keuze 1 
Van Basic tot 
machinetaal op C64 





DJ Keuze 3, 
Het zwaardere 
werk op C64 








Keuze 2 
Aktuele 
microcomputertechniek 





Weka Uitgeverij BV / Bon opzenden aan: 
Postbus 61196 - 1005 HD AMSTERDAM - 020-8671531 db Weka Uitgeverij BM. Antwoordnummer 15412, 1000 PZ AMSTERDAM 
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De IBM compatible 
voor een ongeloof 
lage pnjs. 
f. 5.695,- 


EXCL 






















































































De nieuwe Commodore met standaard 256 Kb geheugen, 
inclusief toetsenbord, dubbel diskette station en inclusief 
een monochrome high-resolution monitor, 









De nieuwe Commodore PC is een zeer krachtige 
16 bits computer. Hij werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt. Daardoor beschikt u 
over honderden programma's die door en door in 
de praktijk werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden 
en kleinbedrijf. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


De nieuwe Commodore PC. Leer hem snel 
kennen. @ INTEL 8088 16 bits processor ® 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
© Dubbel diskette station, 2 x 320/360 Kb ® High- 
resolution monochrome monitor, groen ® ASCII 
toetsenbord ® Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl. B.T.W (diskette station 
lx 360 Kb en | x 10 Mb harddisk). Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bij de neven- 
staande geautoriseerde 





4 
Commodore Systeemdealers. m 
Of vraag documentatie met de |__ commodore 


coupon. Daar wordt een mens wijzer van 








Ja, stuur mij de complete 
documentatie over de nieuwe 
Commodore PC, 


Naam bedrijf 


Contactpersoon 
Adres_ 





Postcode/Plaats 





Functie 
Handtekening 
Toepassing 


Zend de coupon in een gefrankeerde envelop aan: 


| 

| 

| Telefoon mn 

| | 
| 

| 

| 

| 


Commodore BV, Postbus 8192, 1005 AD Amsterdam. | 


| Zeist BM, 2e Hogeweg 123, tel. 03404-25252. 


Alkmaar Accom BV, Verdronkenoord 28, tel. 
0/2-122412, Alphen a/d Rijn Hermes [LCS BV, 
Koperweg 35,-tel. O1/20-35079. Amersfoort Acto 
BV, Amsterdamseweg 53, tel. 033-621/24. Am- 
sterdam A.K.G. Micro Systemen, Dam 2/, tel. 020- 
272266, Bocaraton BM, Schepenbergweg 16, 
tel. 020-9/0/51. Heisterkamp & Partners BV, 
Stadhouderskade 2, tel. 020-163429. Jon Kee 
Groep, Thorn Prikkerstraat 50, tel. 020-170806. 
Prompt Computerservice, Prinsengracht 366, tel. 
020-228078. W & L Automatisering, Parnassusweg 
203, tel. 020-798707. Arnhem Bruns Kantoorinst. 
BV, P, Calandweg 56, tel. 085-648550. Assen 
Kuyer Computer Systemen, Kloekhorststraat 8, tel. 
05920-15881. Beverwijk Dingler Computer 
Partners, Graaf Janstraat |, tel. 02510-29171. Bode- 
graven MMS BV, Europaweg 3, tel, 01726-11171, 
Bovenkarpsel Complan BV, Hoofdstraat 156, tel. 
02285-11628. Breda Indelec BM, Wilhelminastraat 
44, tel. 076-142333. Doetinchem Egberts Software 
BV, Houtsmastraat 150, tel. 08340-44627. Drie- 
bergen Ing. Bur. A. Kooijman, Hoofdstraat | |9, tel. 
03438-21051. Eindhoven L+T International BV, 
Winkelcentrum Woensel 84, tel, 040-4111425. 
Reyers, Willemstraat 3, tel. 040-522888. Enschede 
Compakt Automatisering, Steenriet 16, tel. 053- 
338585. Gorredijk Incap BM, Leitswei 9, tel. 051 33- 
4400. ‘s-Gravenhage A.S.O. Frederikstr. /6, tel. 0/0- 
650348. Datacom, Oranjestr. /, tel. 0/0 - 655812. 
Info Computercentrum, Noordeinde |0, tel. 0/0- 
646830. Logic Data, Rijswijkseweg 31, tel. 070- 
88/7328. Groningen Incap BM, Peizerweg 68, tel. 
050-120603. Harderwijk Microsign BM, Verkeers 
weg 53, tel. 03410-20004. Ridero Computerhouse, 
Hierdenseweg |6-18, tel. 03410-12984, Hard. 
Giessendam C.A.B. Holland BV, Peulenstraat 55, 
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